Top 10k strings from Molgrum v89.1 (1989)(Ian Hughes)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
2 y+w+q*(v9=o)
2 v0+"1NTNK3":
2 p$="MIX3Y2Z1NT"
2 p$="MIR1X3R2K3":
2 m$(l,p)="6":
2 g(s,y+q)):
2 Spare space
2 Number of control codes to follow. DO NOT ALTER!
2 Line spacing = 8/72 inch
2 "MOLG.CODE"
2 "MOLG.BASIC"
2 "54.75"*pi:
2 Assign graphics mode K to one-to-one plotting (makes circles round)
1 z,o;"EPSON printer?":
1 z$=z$+" "+m$(l,s*i
1 z$=m$(l,r):
1 z$(p)="Q")
1 y+q)+i*pi*(h>y+q)):
1 x$(p,j),p)=x$(i,j)
1 v8=n*pi/q:
1 v7=(v3=t):
1 v7=(v3=p):
1 v6;"_______"(
1 v5=v5+y+r:
1 v1=pt+v*z+(mc=q)*(z+u)
1 v1=pp-p+g*w:
1 v0=v0+(sp=q):
1 s$(c)(u+i)=" "
1 s$(b)(t)<hp
1 s$(ad)(t)<hp
1 s$(ac)(t)<hp
1 s$(ac)(h):
1 s$(a)(t)<hp
1 r+s*j,p+r*i;
1 r(b)+h-u+i-
1 pt+q+u*c,i*y*y:
1 pm-p+i+t*mn,
1 p(v3-q,n,i/p):
1 p(s,z+q,i*i):
1 p(s,z+p,i):
1 p(s,y,h*pi):
1 p(s,y,-v6)
1 p(s,y,(in+
1 p(s,y+t,v9+n-i):
1 p(s,y+t,-n):
1 p(s,y+s+v0,(in+
1 p(s,y+s+j,o):
1 p(s,y+s+i,-o(i)):
1 p(s,y+s+h,i):
1 p(s,y+r,n*pi*(p-q*(mc=q))):
1 p(s,y+r,-(mc=o)*
1 p(s,y+q,o):
1 p(s,y+q,in+
1 p(s,y+q,i*pi):
1 p(s,y+q,-v6):
1 p(s,y+p,-v6+
1 p(s,i+y+s,-
1 p(s,h,i*(h
1 p$=p$+"f"+a$(i):
1 p$=p$+"V*ID":
1 p$=p$+"MITZ1Y2X3R1K3":
1 p$=p$+"MIR3*N"
1 p$="MIY2Z1NT":
1 p$="MITZ1Y2X3":
1 p$="MITK3":
1 p$="MITK3"
1 p$="MIR1X4R2K3":
1 p$="MIR1X3Z4X5R2K3"
1 p$="MIR1TR2K3":
1 o,y;"SHADING SET ";mc:
1 o,o;"Frame ";fn;" of ";g:
1 o(v0)=o(v0)+in:
1 n=v5+v1-p:
1 n$(n)+" New":
1 m$(y+u,p)="6":
1 m$(y+u,p)="5":
1 m$(x,p)="2"
1 m$(q,p)="4"
1 m$(l,q)="I":
1 m$(l,q)="C":
1 m$(l,q)-w*w:
1 m$(l,p)="5":
1 m$(l,p)="2":
1 i-p,o;i;") ";:
1 i+r,r;i;") ";
1 i$=i$+" "(
1 h=w+y+(z+t)*
1 go+l*gf+mc*t*y
1 gm+mc*y*y:
1 g(s,y+s+v0))):
1 g(s,y+p)):
1 g(s,x)*h-in*
1 g(s,w)*h-in*hp)):
1 g(s,i))/q:
1 f=q*(i$="-")+(i$="+"):
1 f(n),hp*(f-p):
1 e-y,mc*hs:
1 e-s,i*y*y:
1 e$="Wrong file":
1 e$="VdW ratio (0.1 to 1.25)":
1 e$="Too many valences":
1 e$="Too many atoms":
1 e$="Separation":
1 e$="Residue"+e$
1 e$="No room in file":
1 e$="No free valences"
1 e$="New radius (0.10-2.50)":
1 e$="Line no.":
1 e$="Film full":
1 e$="Bond length":
1 e$="Bond in ring":
1 e$="Ball size (2
1 e$="Atoms not bonded":
1 e$="Atoms in same fragment":
1 e$="Atoms already bonded":
1 e$="Atom not mono-valent":
1 e$="Angle":
1 e$="Angle (deg)":
1 e$=": "+i$+" to":
1 e$=" (0 to 255)":
1 d,(q*f-p)*
1 d,(p-q*f)*
1 c(p$+"Y4*N"):
1 c(p$+"*N"):
1 c(p$+"*N")
1 c(n$+"wD"):
1 c("wMIV*I"):
1 c("wMIC*Nn"):
1 c("nt"+i$):
1 c("MIX3Y2Z1NTK1*"):
1 c("MITZ1Y2K1IY4Z5NTK2*"):
1 c("MIR3*Nw")
1 c("MIR3*N")
1 c("MIR2K3*"):
1 c("MIR1Z1TR3*N")
1 c("C"+n$):
1 c$(v3+v4,q)):
1 c$(v3+v4,p);
1 Set up printer control codes used by the machine code routines for screen dumps. 19 codes are used for each of the dump routines. Any unrequired codes should be replaced by 0's. As supplied thecodes are suitable for an Epson LX80 printer.
1 RadiusShade
1 Q to QUITI
1 Move tables
1 MOLGRUM ~
1 MOLG.CODE s#
1 MOLG.BASIC
1 Left margin
1 Left margin
1 Ian Hughes 1989"''
1 IAN HUGHES 19892 LOADEDITGETF
1 FILESIZE>0
1 FILESIZE=240
1 FILESIZE<251
1 DEMO
1 Created with Ramsoft MakeTZX
1 Control codes for SDMP
1 Control codes for BDMP
1 ;FILESIZE;
1 ;"Wait for MOLGRUM to load"
1 ;"User-defined keys:-";
1 ;"Preset keys:-"''
1 ;"MOLGRUM";
1 ;"MAXIMUM FILESIZE IS ";
1 ;"ERROR! ERROR! ERROR! ERROR!";
1 ;" Q QUIT to previous menu"'" R REDRAW current structure"'" F FIT structure to screen area"
1 ;" ATOMS"
1 6 ^ L/SEDITLISTFILMCONNSCR$6 ^LABLMEASMONMCOPYSDMPBDMP6 ^ANIMMOVEROTMROTB SELVIEW6 ^DISPSHOWHIDEALTRKEYSBASC5 ^MAKBBRKBADDH DELJOINGETF3AQLOADSAVESTORRECLSWOPMERG1AQCURS TOP BOT DELCONV NEW6AQSCRNPRIN XYZLENSANGSTORS2AQLOADMAKECONTPLAYAUTOSAVE3BQ LENANGLTORSLISTCNCL 3BQAXISPLANOLAPUSR1USR2USR36CQXMOVYMOVROTMZOOMROTB SEL3 XROTYROTZROT 3 MOLORIGCURS 2 FRAGWHOL 6 ACT REVINCRDECRMENUFRAM5DQDEFSTABSBONDBL/SFILL 6DQBORDCLIPHDRW VDWBSIZTABS6DQATYPSET1SET2PATSSAVELOAD3SQNAME RADSHAD 4 NONESQARDIAMCIRC 6EQ +1H +2H +3HNAMEMEAS DEL5 ATMSFRAG RESTYPEWHOLHIDN6 TOGL ^ ^ ^ ^ ^ 2 NO YES
1 0062000120660235306253022
1 000MIVST*ID000MIV*ID!
1 0+256*2=512 bytes follow
1 0+256*1=256 bytes follow
1 *FILESIZE:
1 )=pf-r+r*n
1 )=d+y+r+n*(z+t):
1 (w*w+i+x*j):
1 (v1+h))+" New value":
1 (v1*v1+v2*v2):
1 (t-q*(mn=o))+"B":
1 (s-i)*t-p:
1 (pt+t+c*u),mc+n-p:
1 (pf-q+r*c))/w):
1 (pf-p+r*c))/w):
1 (ma*(z+t)/r/
1 (e$);" :";
1 ''''"FILESIZE set to ";filesize''"Should be in the range 1 to 250"''"PLEASE ALTER LINE 1":
1 ''" SELECT - used to select a menu"'" option or an atom"'" UP )"'" DOWN )- cursor movement"'" LEFT ) controls"'" RIGHT )"
1 #sp;"Name Res X Y Z":
1 #p;"scroll?":
1 #p;"Select fragment ";e$:
1 #p;"Select atoms (Q to quit)":
1 #p;"Ready to verify?":
1 #p;"Press key for ";e$:
1 #p;"Play tape.":
1 "a","b","c","alpha","beta","gamma"
1 "SELECT","UP","DOWN","LEFT","RIGHT"
1 "New name: ";
1 "New name (2 chars): ";
1 "Name (up to 4 chars): ";
1 "Enter ""GO TO M"" for MOLGRUM":
1 "Change letter? ";
1 "Atom type **** :";
1 "87"+h)+"-shift (Ang)":
1 "85")+"-coordinate":
1 "70.5"*pi:
1 "65",mc+n-p:
1 Ian Hughes 1989 ********************************
1 ******************************** Loader for MOLGRUM version 89.1